home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ AutoRun Lister.xpl
< prev
next >
Wrap
Text File
|
1998-08-17
|
1KB
|
57 lines
"FILE"="Xteq Systems X-Setup Plugin 3.1"
"TYPE"="8"
"COUNT"="2"
"UIPATH"="System\Startup"
"NAME"="AutoRun Programs"
"LANGUAGE"="VBScript"
"TEXT 1"="Show Info"
"TEXT 2"="Delete"
"DESCRIPTION 1"="These programs are always started when this computer is started."
"DESCRIPTION 2"="Click "Show Info" to see the command that is executed or "Delete" to remove an item."
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
"COMMENT 2"="Version 1.1"
sP="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Sub Plugin_Initialize
iCount=RegEnumValues(sP)
if iCount>0 then
for l=1 to iCount
sName=RegEnumElement(l)
Call SetUIElement(l,sName)
Next
else
Call Disable
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
if ElementSubIndex>0 then
s=sp & RegEnumElement(ElementSubIndex)
if ElementIndex=1 then
s=RegReadValue(s)
Call MsgInformation("Command: " & vbCrlF & vbCrlf & s)
else 'Delete
Call RegDeleteValue(s)
Call SetUIElement(ElementSubIndex,"")
Call Restart
end if
end if
End Sub
Sub Plugin_Terminate
End Sub